home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Light ROM 1
/
LIGHT-ROM 1 (Amiga Library Services)(1994).iso
/
ffdisks
/
d880.lha
/
Oberon
/
O3Demo2.lzh
/
Definitions
/
BigIntegers.def
< prev
next >
Wrap
Text File
|
1993-01-15
|
638b
|
26 lines
DEFINITION BigIntegers;
IMPORT
BT := BasicTypes;
TYPE
BigInteger = POINTER TO BigIntegerDesc;
BigIntegerDesc = RECORD (BT.RINGDesc)
negative : BOOLEAN;
digits : POINTER TO ARRAY OF INTEGER;
PROCEDURE (a:BigInteger) Compare(b: BT.COMPAREABLE): LONGINT;
PROCEDURE (m:BigInteger) Add(n: BT.GROUP): BT.GROUP;
PROCEDURE (m:BigInteger) Neg(): BT.GROUP;
PROCEDURE (m:BigInteger) Norm(): LONGREAL;
PROCEDURE (m:BigInteger) Mul(n: BT.RING): BT.RING;
PROCEDURE (n:BigInteger) ConvertToString(): BT.DynString;
END;
CONST
MaxDigit = 1000;
PROCEDURE Create(init: LONGINT): BigInteger;
END BigIntegers.